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Con  il  presente  fascicolo  prosegue  la  raccolta 
dei  migliori  programmi  dello  Spectrum  pubbli¬ 
cati  su  libri  e  riviste  Jackson. 

In  ogni  numero  un  supergame  originale  ingle¬ 
se  descritto  nei  minimi  particolari  ed  in  più 
una  miriade  di  altri  programmi  scelti  tra  uti¬ 
lity,  grafica,  musica,  giochi  ecc. 

Ciascun  listato  è  accompagnato  da  una  recen¬ 
sione  approfondita  e  da  consigli  per  un  corret¬ 
to  utilizzo. 

Non  solo  potrete  caricare  immediatamente  i 
programmi  grazie  al  master  su  cassetta  allega¬ 
to  alla  confezione,  ma  anche  personalizzarli 
servendovi  dei  listati  e  della  descrizione  pub¬ 
blicata  all’interno  del  fascicolo. 

La  Jackson  Soft  Compilation,  è  una  pubblica¬ 
zione  creata  su  misura  per  voi  appassionati 
allo  scopo  di  arricchire  sempre  di  più  la  vostra 
raccolta  di  programmi. 
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DESERT BURNER 


“Desert  Burner”,  letteralmente  significa  “Brucia 
Deserti”,  ma  in  questo  caso  è  il  nome  della  tua 
poderosa  moto  in  sella  alla  quale  intraprendi  la 
missione  più  pericolosa  della  tua  vita.  Il  game  è 
uno  “scrolling  arcade”  della  migliore  qualità  e  ti 
terrà  inchiodato  per  ore  intere  alla  sedia  ..ehm  ..al 
sellino.  Non  scoraggiarti  per  l’inevitabile 
fallimento  dei  primi  tentativi  ed  insisti  perché 
solo  in  questo  modo  riuscirai  a  macinare  sempre 

più  strada. 
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icore  000330  *4.  ht9h  OOOOOO 

ip««d  «in  .««x  ups  >  eoe 


n  gioco 

L’azione  si  svolge  in  pieno 
deserto.  Tu  sei  il  leader  di 
un  gruppo  di  intrepidi  che 
vogliono  detronizzare  il  ti¬ 
ranno  che  opprime  il  paese. 
La  missione  che  ti  spetta  è 
quella  di  consegnare  ad  un 
altro  gruppo  amico,  i  piani 


di  progetto  di  una  nuova  ar¬ 
ma  che  con  la  sua  potenza 
potrebbe  mettere  in  difficol¬ 
tà  gli  avversari.  La  strada 
che  devi  percorrere  presen¬ 
ta  numerosissimi  ostacoli  di 
varia  natura,  ti  capiterà  in¬ 
fatti  di  trovarti  davanti  ad 
auto  e  bus  che  viaggiano  in 


senso  contrario,  a  tronchi 
d’albero  abbandonati  sulla 
carreggiata,  a  voragini  che 
si  sono  inghiottite  un  tratto 
di  asfalto  e  ad  altre  cose;  li 
dovrai  saltare  tutti  con  tem¬ 
pismo  e  prontezza  di  riflessi 
pena  la  distruzione  della 
moto  e  la  perdita  di  una  del¬ 
le  cinque  vite  a  tua  disposi¬ 
zione.  Le  insidie  però  non 
sono  terminate,  dovrai 
guardarti  anche  dai  due  eli¬ 
cotteri  che  a  turno  o  con¬ 
temporaneamente  ti  danno 
la  caccia  volando  a  varie  al¬ 
tezze  e  sganciando  bombe 
micidiali. 

Dal  canto  tuo,  oltre  che  ad 
accelerare  e  a  rallentare,  po¬ 
trai  sparare  a  raffica  con  la 
mitraglietta  di  cui  è  dotata 
la  moto;  fai  bene  attenzione 
che  i  tuoi  proiettili  nulla 
possono  contro  gli  ostacoli 
che  ti  si  parano  davanti,  i 
quali  andranno  solamente 
saltati,  ma  hanno  'il  potere 
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di  distruggere  gli  elicotteri 
che  ti  danno  punti.  Per  fare 
ciò  dovrai  aspettare  i  mo¬ 
menti  favorevoli  quando 
cioè  gli  elicotteri  nemici  vo¬ 
lano  bassi  davanti  a  te,  ri¬ 
corda  che  puoi  sparare  an¬ 
che  saltando. 

Ed  ora  partenza  per  il  peri¬ 
coloso  viaggio  che  si  prean¬ 
nuncia  oltre  che  insidioso, 
anche  lungo  a  tal  punto  da 
farti  viaggiare  anche  di  not¬ 


te.  Quanto  riuscirai  a  resi¬ 
stere? 

Caricamento 

1  Se  possiedi  un  joystick, 
collegalo  allo  Spectrum  pri¬ 
ma  di  dare  corrente. 

2  Assicurati  che  lo  spinotto 
Ear  sia  regolarmente  colle¬ 
gato  alla  relativa  presa  e 
che  il  livello  del  volume  sia 
idoneo. 

3  Batti  LOAD  ““  (senza  frap¬ 
porre  alcuno  spazio  tra  gli 
apici)  e  poi  dai  ENTER. 

4  Manda  in  Play  il  tuo  regi¬ 
stratore;  quando  il  carica¬ 
mento  sarà  terminato,  ti  si 
presenterà  il  menu. 


Comandi 

Dal  menu  principale  potrai 
selezionare  il  joystick  o  la 
tastiera  oppure  il  secondo 
menu  per  la  scelta  della  dif¬ 
ficoltà  e  del  tipo  di  gioco. 
Con  questa  seconda  opzione 
potrai  passare  attraverso 
gli  ostacoli  senza  doverli 
saltare,  ma  francamente  è 
più  appagante  lasciarli  atti¬ 
vi.  I  comandi  della  tastiera 
sono: 

Caps  Shift  -  Accelerazione 
Z  -  Salto 
Space  -  Sparo 
H  -  Pausa  nel  gioco 
S  -  Ripresa  del  gioco 
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CAMERE 


È  un  game  molto  bello  che 
ricorda  vagamente  Atic- 
Atac.  Non  mancano  certo  i 
colori  e  le  emozioni,  ma 
quello  che  più  soddisfa  è  si¬ 
curamente  la  trama  dell’av¬ 
ventura...  e  tutto  in  Basic! 


n  gioco 

Dovete  raggiungere  il  vostro 
amico  mago  il  quale  ha  asso¬ 
luto  bisogno  di  un  aiutante. 
Per  fare  ciò  dovete  attraver¬ 
sare  i  cinque  piani  di  cui  è 
composto  il  castello  racco¬ 
gliendo  quanti  più  oggetti 
potete.  Affidatevi  al  vostro 
senso  di  orientamento  e 
consultate,  quando  siete  in 
difficoltà  (e  quando  potete), 
la  mappa  del  piano.  Per  fare 
ciò  premete  il  taso  M,  ma 

20 


1 

REM 

# 

*«*  CAMERE  **** 

2 

REM 

3 

REM 

Gruppo  Editoriale 

4 

REM 

J  ackson 

5 

REM 

6 

REM 

J  . 

S. Compilation  n.6 

7 

REM 

8 

REM 

by  A. Cattaneo 

9 

REM 

1  0 

CLE 

AR  : 

RANDOMIZE  :  GO  SUB 

9000:  LET 

life 

■5: 

DIM 

p$ ( 704  )  :  DIM  j(5): 

DIM 

k  (  5  )  :  D 

IM  i $ ( 20 

,9): 

LET  nu-1 :  LET  x-5 : 

LET  y-5:  D 

IM  x 

(5,1 

1.11 

) :  DIM  y ( 5 , 1 1  ,11): 

DIM 

P  (  5 , 1  1  , 

11): 

DIM 

t<5 

,11,11) 

20 

FOR 

1-1 

TO  5:  LET  k(l)«ABS 

(8 

-1):  BOR 

DER 

1:  FOR  m 

-1  TO  1 1  :  FOR  n-1  TO  1 

1  :  LET  x 

(1  ,m 

,n)- 

INT 

( RN D*  2  )  :  LET  y ( 1 , m  , 

n  )- 

INT  (RND 

*2): 

LET 

P(1 

,  m  ,  n  )  -INT  (RND»8): 

LET 

t (1 ,m  ,n 

)-(RND>. 

6  )  *  I 

NT  (RND*17+1):  NEXT 

n  : 

NEXT  m: 

NEXT  1 

25 

FOR 

1-1 

TO  5 

30 

LET 

X  3  - 

0:  LET  ys-6  :  LET  ky 

-1  : 

LET  kx- 

0:  LET  a 

$«  "  6 

":  BRI GHT  1 

40 

BOR 

DEp 

P ( 1  ,  X  ,  y  )  :  PAPER  p(l 

»  *  , 

y):  CLS 

:  IN 

K  9: 

PRI 

NT  #0  ; AT  1,1;"  Pia 

no 

"  ;  l 

50 

DRAW  255,0:  DRAW  0,175:  DR 

AW 

-255,0: 

DRAW 

o,- 

175  : 

DRAW  30,24:  PLOT  255, 

0:  DRAW 

-30, 

24: 

PLOT 

255,175:  DRAW  -30, 

-24 

:  PLOT  0 

,175:  DRAW  30,-24;  FOR  n-3  TO  18:  PRINT  AT 
n,4;"{24gs8}":  NEXT  n 
55  IF  t ( 1  ,  x  ,  y  )  > 1  THEN  PRINT  OVER  1;AT  10 
,  1 5  ;  CHR$  (145  +  t(l,x,y)) 

60  IF  y ( 1  ,  x  ,  y  )  *  1  THEN  PLOT  88,152:  DRAW 
-16,16:  DRAW  112,0:  DRAW  -  1 6  ,  -  1 6  :  FOR  n-1 
TO  3:  PRINT  AT  n  ,  1 1  ;  "  {  1 Ogs8  }  "  :  NEXT  n 

70  IF  y ( 1 , x  ,  y ♦ 1 )  -1  THEN  PLOT  88,23:  DRAW 
-16,-16:  DRAW  112,0:  DRAW  - 1 6 , 1 6  :  FOR  n-1 
7  TO  20:  PRINT  AT  n  ,  1 1  ; " { 1 Ogs 8 } " :  NEXT  n 
80  IF  x ( 1  ,  x  ,  y  )  - 1  THEN  PLOT  31.56:  DRAW  - 
24,-16:  DRAW  0,96:  DRAW  24,-16:  FOR  n-7  TO 
14:  PRINT  AT  n  ,  1  ;  " { 4gs 8 } " :  NEXT  n 
90  IF  x ( 1  ,  x  + 1  ,  y  )  -1  THEN  PLOT  224,56:  DRA 
W  24,-16:  DRAW  0,96:  DRAW  -24,-16:  FOR  n-7 
TO  14:  PRINT  AT  n  ,  27  ;  " { 4gs8 } " :  NEXT  n 

95  LET  ys-ys-ky:  LET  xs-xs-kx:  PRINT  AT 
10-ys-ky,15-xs-kx;"{ga8}";AT  1 O-ys , 1 5~xs; 
OVER  1  ; " { B } " ;  BEEP  .01,-5:  IF  ys<>0  OR  xs< 
>0  THEN  GO  TO  95 

96  IF  ( t ( 1 ,  x  ,  y  )  >0  AND  1>1)  OR  t(l,x,y)>1 
THEN  GO  SUB  500:  IF  t(l,X,y)-1  THEN  LET  1 

-1- 1  :  GO  TO  30 

97  IF  t ( 1  ,  x  ,  y  )  «1 6  THEN  GO  SUB  800 

98  IF  t(l,x,y)-17  THEN  GO  SUB  900:  IF  li 
fe-0  THEN  PRINT  AT  18,0;#0;AT  0,0;"Sei  mor 
to  dalle  troppe  ferite!":  GO  TO  260 

100  LET  a$-INKEY$ 

110  LET  kx-(a$-»8"  AND  x ( 1  ,  x  +  1  , y  ) - 1  ) - ( a $- 
"5"  AND  x(l,x,y)-1):  LET  ky-(a$-"6"  AND  y( 

I  ,x , y  +  1  )-1  )-(a$-"7"  AND  y(l,x,y)-1) 

120  IF  a  $  « " 0 "  THEN  GO  TO  300 

130  IF  a  $  -  "  m  "  THEN  GO  TO  400 

135  IF  a  $ - " i "  THEN  GO  TO  700 

140  IF  (kx-0  AND  ky-O)  THEN  GO  TO  100 

150  LET  ys-O:  LET  xs-0 

160  LET  xs-xs+kx:  LET  ys-ys+ky:  PRINT  AT 
10+ys-ky,15+xs-kx;"{gs8}";AT  10+ys,15+xs; 
OVER  1  ; "{B}" 

170  BEEP  .01,-5:  IF  8-ABS  ys>0  AND  1 3"ABS 
x 3 > 0  THEN  GO  TO  1 60 

180  LET  x-x+kx:  LET  y=y+ky:  IF  x>0  AND  x< 

II  AND  y >0  AND  y < 1 1  THEN  GO  TO  40 

190  PRINT  #0;  FLASH  1  ; AT  0,0;"  Hai  trovat 
o  un'uscita. Un  tasto  per  il  piano  seg 

uente.  " ; AT  1  ,  1 2  ;  ( "  per  uscire. 

"  AND  1-5):  PAUSE  0:  LET  x-5:  LET 
y -5  :  NEXT  1 

200  CLS  :  PRINT  AT  1  , 1 0  ; "COMPLIMENTI  !"'" 
Esci  vivo  dal  quinto  piano!" 

210  LET  c - 1  :  PRINT  AT  4,0:  FOR  n  =  2  TO  14: 
IF  i$(n)Ot$(n)  THEN  PRINT  AT  4,0;"Ma  non 
possiedi  gli  oggetti  richiesti  dal  ma 

go.per  cui  devi  continuare  l'avventura!": 
LET  c-0 
220  NEXT  n 

230  IF  c - 1  THEN  PRINT  AT  4,0;"Hai  tutti  g 


state  attenti  che  le  possibili¬ 
tà  di  consultazione  sono  li¬ 
mitate  e  calano  da  piano  a 
piano  come  segue: 

Piano 

1 

2 

3 

4 

5 


Consultazioni 
della  mappa 
6 
5 
4 
3 
2 


Collezionate  tutti  quanti  gli 
oggetti  raccogliendone  un 
po’  per  piano  ed  evitando  il 
più  possibile  la  nebbia,  le 
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botole,  ed  i  vampiri  che  si 
aggirano  sempre  in  agguato. 
Gli  oggetti  che  potrete  tro¬ 
vare  nelle  varie  stanze  sono: 

spada 

accetta 

scudo 

anello 

lanterna 

drink 

frusta 

moneta 

croce 

pergamena 

pugnale 

lancia 

chiave 

Avete  cinque  vite  delle  quali 
dovete  fare  tesoro,  ve  ne  vie¬ 
ne  tolta  una  quando  incon¬ 
trate  il  vampiro  del  castello 
che  ucciderete  sistematica- 
mente  premendo  un  tasto 
qualsiasi,  ma  che  vi  procu¬ 
rerà  delle  ferite.  A  differen¬ 
za  degli  altri  oggetti  che 
spariscono  una  volta  inter- 


li  oggetti  richiesti, il  mago  si  congratula 
con  te  e  ti  assume  come  aiutante!." 

2  4  0  PRINT  #  0  ;  A  T  0,0;"Vuoi  vedere  cosa  hai 
?  (Y/N)" 

245  LET  a$-INKEY$ 

250  IF  a$-"y"  THEN  CLS  :  PRINT  AT  1,5;"Po 
ssiedi:-":  FOR  n-2  TO  14:  PRINT  AT  n,10;CH 
R $  ( 1 4 5  +  n ) ; "  -  "  ;  i  $ ( n  )  :  NEXT  n 
255  IF  a  $  <  > " y "  AND  a$<>"n"  THEN  GO  TO  245 
260  PRINT  OVER  1;"  Provi  di  nuovo  ?  ( 

Y/N)  " 

270  LET  a$-INKEY$:  IF  a$-"y"  THEN  RUN 
280  IF  a  $  <  > " n "  THEN  GO  TO  270 
290  STOP 

300  IF  i$( 1 4)<>t$( 1 4)  THEN  PRINT  #0;AT  0, 
0;"Senza  chiave  non  apri  la  porta  segreta 
Sei  morto"  AND  1-1);("  Cadi  al  piano 
sotto  "  AND  1 > 1 ) :  LET  t(l,x,y)-1:  PAUS 
E  0:  GO  TO  (1<>1  )«86  +  10 
310  PRINT  #0  ; AT  0,0;  FLASH  1;" 


porta  segreta . . . 


Usando  i 


"  Apri  la 
tasti  cursor 


(5- 

•8) 

II 

320 

LET  a$=INKEY$ 

330 

IF 

a  $  -  "  5  " 

THEN 

LET 

x  (  1  ,  x  ,  y  )  =  1 

340 

IF 

a  $  =  "  8  " 

THEN 

LET 

x  (1 ,x*l , y )  =  1 

350 

IF 

a  $  -  "  7  " 

THEN 

LET 

y (1 ,x ,y )-1 

360 

IF 

a  $  -  "  6  " 

THEN 

LET 

y ( 1 , x , y + 1 )=i 

370 

IF 

a  $  <  >  "  5 

"  AND 

a$<> 

"6"  AND  a$<> 

D  a  $ <  > " 8 "  THEN  GO  TO  320 
380  PRINT  #0  ; AT  1,0;"Aprendo  la  porta  per 
di  chiave":  LET  i  $ ( 1 4  ) -" chi  a ve  persa":  GO 
TO  60 

400  IF  k(l)-0  THEN  PRINT  #0;AT  0,0;". ..Se 
i  uscito  dal  tracciato!!":  GO  TO  100 
405  LET  k ( 1  ) -k (1  )- 1  :  PAPER  0:  BORDER  0:  I 
NK  7:  CLS  :  DRAW  168,0:  DRAW  0,168:  DRAW  - 
168,0:  DRAW  0,-168:  FOR  n-1  TO  15:  PRINT  A 
T  n  ,  2 1  ;  I NK  4  ;  CH R $  ( 1 45*n  t$ ( n ) :  NEXT 

n:  PRINT  AT  0,0;  PAPER  6;  I NK  0;"Disponi 
di  "  ;  k ( 1  )  ; "  mappe  al  piano  ";1 
410  PRINT  INK  0  ;  A T  2*y  ,  2*x- 1  ;  " { B } " 

430  FOR  m-0  TO  10:  PLOT  l6*m+4,4:  DRAW  0, 
160:  PLOT  4 , 1 6 *m+  4  :  DRAW  160,0:  NEXT  m: 

440  FOR  n-1  TO  11:  FOR  m-1  TO  11:  IF  m<  1  1 
THEN  PLOT  1 6*m  ,  1 80- 1 6*n:  DRAW  OVER  y(l,m, 
n  )  ;  -8 , 0 

445  IF  t  (  1  , n  , m  )  >0  AND  m<11  AND  n< 1 1  AND  ( 
t  (  1  ,  n  ,  m  )  <  >  1  OR  ÌOI)  THEN  PRINT  INK  0;AT  2 
*m ,  2*n- 1  ; CHR$  ( 1 45  + 1 ( 1 , n  ,  m  )  ) 

450  IF  n < 1 1  THEN  PLOT  1 6 *m- 1 2 , 1 76- 1 6 » n :  D 
RAW  OVER  x ( 1  ,  m  ,  n  )  ;  0 , -8 
460  NEXT  m:  NEXT  n 

470  INK  9:  FOR  m=4  TO  164:  OVER  1:  PLOT  4 
, m :  DRAW  160,0 

480  IF  INKEY$-""  THEN  NEXT  m:  GO  TO  470 

490  OVER  0:  PAUSE  0:  GO  TO  40 

500  FOR  n-9  TO  11:  PRINT  AT  n,14:"  ":  N 


‘f 


n-15  TO  1  STEP  -1:  BEEP  .01, n:  NE 


EXT  n 
530  FOR 
XT  n 

540  LET  t- 1  (  1  ,  x , y ) :  PRINT  AT 
l45+t);#0;AT  0,0;"Hai  trovato 
F  t>1  AND  i$(t)-t$(t)  AND  t< 1 6 
#0  ;  AT  1  ,0; "ma  l'hai  già*  ! " 

550  IF  t-1  THEN  FOR  n-7  TO 
,12;"  NEXT  n:  PLOT 

5,0:  DRAW  0,-55:  DRAW  -55,0: 

AW  5^,-5^:  DRAW  -5^,0:  DRAW 
TO  12:  PRINT  BRIGHT  0;AT  n, 
x  ,  y  )  ;  " { 5 g s 8 } " :  NEXT  n:  PRINT 


10, 1 5  ;  CH  R$  ( 
:  " ; t$ ( t  )  :  I 
THEN  PRINT 


13:  PRINT  AT  n 
96,119:  DRAW  5 
DRAW  0,55:  DR 
54,5*1:  FOR  n-8 
13;  INK  p ( 1- 1 , 
#0;"  Cadi  nel 


la  stanza  sotto.  ":  PAUSE  0 

560  IF  t« 1 5  THEN  PRINT  #0;AT  1,0;("La  lan 
terna  l'ha  sciolto!"  AND  i $ ( 6 ) - 1$ ( 6 ) ) :  IF 
i  $ ( 6 ) <>t$ ( 6 )  THEN  PRINT  #0;AT  1,0;"TÌ  togl 
ie  tutto":  PRINT  AT  0,0;  OVER  1;  PAPER  5; 
INK  1;  FLASH  1;p$:  DIM  i$(20,9): 

590  LET  i$(t)-(t$(t)  AND  t > 1  AND  t < 1 6  )  :  L 
ET  t(l,x,y)-(t(l,x,y)-1)*(t(l,x,y)  AND  t  (  1 
,  x  ,y  )  > 1 5 ) :  RETURN 

700  CLS  :  PRINT  AT  1  , 5  ; " P os s i ed i  :  ":  FOR 

n-2  TO  14:  IF  i$(n)«t$(n)  OR  i$(n)="chiav 
e  persa"  THEN  PRINT  AT  n,10;CHR$  (145+n);" 
"  ;  i  $  (  n  ) 

710  NEXT  n:  PAUSE  0:  GO  TO  30 

800  PRINT  AT  0,0;  PAPER  7;  INK  0;  OVER  1; 

FLASH  1  ; p  $ 

810  LET  t-0:  FOR  n«1  TO  14:  IF  i$(n)«t$(n 
)  THEN  LET  t-n 

820  NEXT  n 

830  IF  i  $ ( 6 ) «t$ ( 6 )  THEN  LET  t-6 

840  IF  t>1  THEN  PRINT  #0;AT  1,0;"Hai  pera 
o  :  "  ;  i  $ ( t ) :  LET  i$(t)«"  ":  PAUSE  0:  RETU 

RN 

850  PRINT  #0;AT  1,0;"Non  e'  svanito.":  PA 
USE  0:  RETURN 

900  PRINT  #0  ;  AT  1  ,  0  ;  " V am p i r o ;  uccidilo  co 
n  un  tasto.":  PAUSE  0:  PRINT  #0;AT  0,0;" 


910  FOR  m-=0 
1  0 , 1  5  ;  (  "  { Q  }  " 
:  FOR  n*=20  TO 
XT  n:  NEXT  m 
920  IF  i$( 1 0 
"  "  ;  #  0  ;  A  T  0,0 
oce.":  LET  t( 
930  LET  life 
#  0  ;  A  T  0 , 0  ;  "  S 
vite .  Att 
940  RETURN 
9000  RESTORE 
"  +  7  :  READ  a: 
9010  DATA  153 
9015  DATA  48, 


TO  7:  PRINT  AT  1 0 , 1 5  ; " { S } " ; AT 
AND  m/2-INT  (m/2)):  BORDER  m 
1  STEP  -1  :  BEEP  .005, n+m:  NE 


)-t$(10)  THEN  PRINT  AT  10,15; 
;  "Ucciso  il  vampiro  con  la  cr 
1 , X  ,  y  )  «0  :  RETURN 
«life-1:  IF  1 i f e>0  THEN  PRINT 
ei  ferito, ti  restano  " ;  1 i f  e  ; " 
ento!":  RETURN 

9000:  FOR  n-USR  "a"  TO  USR  "s 
POKE  n , a  :  NEXT  n 
,102,102,153,153,102,102,153 
176,152,116,20,112,136,134,25 


cettati,  i  vampiri  restano, 
per  cui  se  ripassate  dalla 
stessa  stanza  presidiata  dal 
succhiasangue,  perderete 
un’altra  vita. 

Se  siete  particolarmente  iel¬ 
lati  e  vi  capita  di  rimanere 
ingabbiati  all’inizio,  al  pri¬ 
mo  piano,  senza  poter  pren¬ 
dere  la  chiave  per  uscire, 
non  vi  resta  altro  da  fare 
che  morire  e  tentare  di  nuo¬ 
vo.  Durante  il  tragitto  farete 
quindi  bene  a  tenere  sempre 
una  chiave  tra  gli  oggetti 
prelevati  perché  capita  so¬ 
vente  di  rimanere  rinchiusi. 
Quando  trovate  una  botola 
cadete  al  piano  sottostante. 
Al  primo  piano,  evidente¬ 
mente,  non  esistono  botole. 
Fate  anche  attenzione  alla 
nebbia  che  vi  procura  illu¬ 
sioni  e  vi  toglie  uno  degli  og¬ 
getti  (preferibilmente  la 
chiave)  oppure  vi  toglie  ad¬ 
dirittura  tutto. 
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I  comandi 

È  possibile  l’impiego  del  jo¬ 
ystick  ammesso  di  avere 
una  interfaccia  programma- 
bile.  Il  gioco  non  richiede 
interventi  tempestivi  per 
cui  si  consiglia  l’uso  della 
tastiera: 

Tasti 

5-8  per  passare  da  una  stan¬ 
za  all’altra  nella  direzione 
delle  frecce. 

M  per  consultare  la  mappa 
I  per  vedere  cosa  si  pos¬ 
siede. 

0  per  aprire  la  porta  segreta 
(se  avete  la  chiave). 

Tutto  qui,  ed  ora  concentra¬ 
tevi  e.,  good  luck! 

Tratto  dall’archivio  della  Ja¬ 
ckson 


Guida  all’input  Spectrum 


Norme  per  la 
battitura 

I  caratteri  compaiono  nei  li¬ 
stati  in  forma  abbreviata,  rac¬ 
chiusi  in  parentesi  graffe, 
n  primo  carattere  all’interno 
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della  parentesi  rappresenta, 
se  si  tratta  di  un  numero,  le 
volte  che  devono  essere  battuti 
simboli  dello  stesso  tipo;  se 
omesso  tale  numero  è  inteso 
uguale  ad  uno.  Il  tipo  di  carat¬ 
tere  grafico  è  invece  presenta¬ 
to  nel  seguente  modo:  gx,  con 
x  numero  compreso  tra  1  e  8, 


per  caratteri  grafici  predefini¬ 
ti  ottenuti  premendo  i  corri¬ 
spondenti  tasti,  gsx,  per  quelli 
disponibili  premendo  contem¬ 
poraneamente  CAPS  SHIFT. 

I  caratteri  grafici  definibili 
(caratteri  da  A  ad  U  in  modo 
grafico)  sono  stampati  in 
maiuscolo. 


GALATTOIDI 


5  CLS 

IO  CLEAR  30999 
20  PRINT  AT  10,2; 
ricando  PAPER  4; 

PAPER  1  ;  FLASH  0  ;  "  . 
30  LOAD  ""CODE 


INK  7  ;  PAPER  1  ; "Sto  ca 
FLASH  1  ; "GALATTOIDI" ; 


31000 

205 

230 

121 

205 

7 

1  22 

31006 

205 

64 

1  22 

33 

81 

125 

31012 

6 

8 

58 

78 

1  25 

167 

31018 

40 

82 

58 

75 

1  25 

1  67 

31024 

40 

61 

94 

35 

86 

35 

31030 

229 

197 

213 

221 

225 

221 

31036 

1  26 

1 

167 

40 

40 

205 

310  4  2 

203 

121 

221 

229 

6 

8 

310  4  8 

33 

81 

125 

94 

35 

86 

31054 

35 

229 

197 

21  3 

221 

225 

31060 

221 

126 

1 

167 

40 

9 

31066 

205 

131 

121 

205 

151 

121 

31072 

205 

168 

1  21 

193 

225 

1  6 

31078 

228 

221 

225 

193 

225 

16 

310  84 

185 

24 

178 

33 

78 

125 

31  090 

52 

1  7 

64 

0 

33 

0 

31096 

32 

205 

1  81 

3 

24 

1  60 

31  1  02 

205 

1  96 

1  22 

24 

152 

221 

31  1  08 

1  26 

0 

254 

21 

1  92 

205 

31114 

27 

124 

42 

73 

1  25 

4  3 

31120 

34 

73 

125 

205 

208 

123 

Finalmente!  Ecco  un  pro¬ 
gramma  che  supera  i  pro¬ 
blemi  di  velocità  del  Sin¬ 
clair.  Questo  incredibile  gio¬ 
co  in  linguaggio  macchina, 
del  tipo  “space  invaders”,  oc¬ 
cupa  poco  più  di  1K,  e  per¬ 
tanto  può  girare  senza  pro¬ 
blemi  su  entrambe  le  versio¬ 
ni  dello  Spectrum.  Non  si 
vuole  qui  insegnare  il  lin¬ 
guaggio  macchina,  quindi 
con  le  istruzioni  fornite  è 
possibile  utilizzare  il  pro¬ 
gramma  anche  senza  com¬ 
prenderne  il  funzionamen¬ 
to,  comunque  dettagliata- 
mente  spiegato  qui  di  se¬ 
guito. 

Scopo  del  gioco  è  la  distru¬ 
zione  degli  otto  alieni  colo¬ 
rati,  simili  a  ragni,  che  si 
muovono  a  caso  attraverso 
lo  schermo,  lasciando  cade- 
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re  delle  bombe. 

Dovrete  cercare  di  centrarli, 
evitando  contemporanea¬ 
mente  le  loro  micidiali  bom¬ 
be  che,  se  vi  colpiscono,  vi 
fanno  perdere  una  delle  vo¬ 
stre  vite.  Sempre  una  vita 
sarà  il  prezzo  che  pagherete 
in  caso  di  invasione,  cioè  se 
uno  degli  alieni  riuscirà  a 
raggiungere  il  fondo  dello 
schermo. 

All’Inizio  il  gioco  è  abba¬ 
stanza  semplice,  poiché  il 
vostro  laser  si  muove  con 
una  velocità  che  è  circa  otto 
volte  quella  degli  alieni;  do¬ 
po  che  avrete  abbattuto  i 
primi  tre,  però,  la  differenza 
di  velocità  scenderà  a  cin¬ 
que,  per  ridursi  a  zero  con 
l’ultimo:  per  centrarlo  do¬ 
vrete  avere  una  buona  dose 
di  fortuna,  oltre  che  di  abi¬ 
lità! 

Superato  questo  schermo  ne 
avrete  un  altro,  con  una  vita 
“extra”;  il  gioco  di  solito  non 
si  protrae  oltre  i  tre 
schermi. 


Perché  questo 
programma 

Sono  molte  le  ragioni  che 
hanno  portato  alla  stesura 
di  questo  programma: 

1.  Realizzare  un  gioco  meno 
prevedibile  di  quelli  con  le 
famose  schiere  che  marcia¬ 
no  attraverso  lo  schermo  in 
file  compatte.  La  casualità 
aggiunge  difficoltà,  mante¬ 
nendo  breve  la  durata  del 
gioco. 

2.  Creare  un  gioco  diverten- 
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1  67 
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33 

74 
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34 
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92 
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31216 

92 
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62 
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34 

58 

1  20 

31228 

92 

1  1  1 

237 

95 

230 

31 

31234 

103 

34 

1  1  8 

92 

201 

175 

31240 

50 

73 

125 

62 

4 

50 

31246 

78 

125 

205 

1  07 

13 

62 

31252 

2 

205 

1 

22 

17 

153 

31258 

125 

1 

32 

0 

205 

60 

31264 

32 

1 

5 

24 

205 

21  7 

31270 

13 

237 

75 

71 

125 

205 

31276 

27 

26 

17 

1  97 

125 

1 

31  282 

133 

0 

205 

60 

32 

62 

31288 

1  91 

219 

254 

230 

1 

32 

31294 

248 

201 

205 

107 

1  3 

62 

31  300 

2 

205 

1 

22 

17 

153 

31  306 

125 

1 

32 

0 

205 

60 

31312 

32 

1 

5 

24 

205 

217 

31318 

13 

237 

75 

71 

125 

205 

31  324 

27 

26 

1 

26 

24 

205 

31330 

217 

1  3 

237 

75 

73 

125 

31  336 

205 

27 

26 

1 

15 

24 

31342 

205 

21  7 

1  3 

237 

75 

78 

31348 

1  25 

6 

0 

205 

27 

26 

31354 

33 

0 

88 

62 

7 

6 

31360 

128 

119 

35 

16 

252 

61 

31366 

254 

2 

32 

245 

62 

8 

31372 

50 

75 

1  25 

33 

81 

125 

31  378 

6 

8 

94 

35 

86 

35 

31384 

21  3 

221 

225 

1  75 

221 

1  1  9 

31  390 

6 

221 

1  12 

0 

221 

52 

31  396 

0 

205 

56 

125 

230 

2 

31  402 

61 

221 

119 

4 

205 

56 

31408 

125 

230 

15 

1  98 

8 

221 

31414 

1  1  9 

1 

16 

218 

62 

7 

31420 

50 

76 

125 

175 

50 

80 

31  426 

125 

201 

17 

185 

125 

1 

31432 

12 

0 

205 

60 

32 

33 

31438 

32 

88 

17 

33 

88 

6 

31  444 

82 

229 

213 

1  97 

205 

56 

31  450 

125 

1 

1  27 

2 

119 

237 

31456 

1  76 

241 

245 

47 

230 

7 

31462 

60 

103 

205 

56 

125 

1  1  1 

31468 

17 

1  6 

0 

205 

181 

3 

3 1  *4  7  ^ 

1  93 

209 

225 

16 

222 

33 

31480 

0 

48 

17 

80 

0 

205 

31486 

181 

3 

201 

221 

1  26 

0 

31492 

221 

1  1  9 

2 

221 

1  26 

1 

31498 

221 

1  1  9 

3 

205 

56 

125 

31504 

230 

15 

32 

15 

205 

56 

31510 

1  25 

230 

3 

32 

5 

221 

31516 

53 

0 

24 

3 

221 

52 

31522 

0 

221 

1  26 

4 

221 

134 

31528 

1 

221 

119 

1 

254 

1 

31534 

40 

15 

254 

30 

40 

1  1 

31  540 

221 

126 

0 

167 

40 

5 

31546 

254 

21 

200 

24 

1  2 

221 

31552 

1  26 

2 

221 

119 

0 

221 

31558 

1  26 

3 

221 

119 

1 

221 

31564 

1  26 

1 

254 

2 

204 

1  20 

31570 

123 

254 

29 

204 

1  20 

123 

31576 

205 

56 

125 

230 

15 

204 

31582 

1  20 

123 

221 

1  26 

6 

167 

31588 

1  92 

205 

56 

1  25 

230 

1 

31  594 

1  92 

221 

1  26 

0 

221 

119 

31  600 

5 

221 

126 

1 

221 

119 

31  606 

6 

201 

221 

126 

4 

237 

31612 

68 

221 

119 

4 

201 

205 

31618 

189 

123 

33 

76 

1  25 

62 

31624 

127 

219 

254 

230 

1 

32 

31630 

1  5 

58 

80 

125 

167 

32 

31636 

9 

1  26 

50 

80 

125 

62 

31  642 

21 

50 

79 

125 

126 

50 

31648 

77 

125 

62 

254 

219 

254 

31654 

203 

87 

32 

1 

52 

230 

31660 

2 

32 

1 

53 

1  26 

254 

31666 

4 

40 

3 

254 

27 

1  92 

31672 

58 

77 

125 

1  1  9 

201 

205 

31678 

56 

125 

246 

15 

17 

1  6 

31684 

0 

38 

1 

1  1  1 

221 

229 

31690 

205 

181 

3 

221 

225 

201 

31696 

33 

75 

1  25 

53 

62 

147 

31702 

221 

70 

0 

221 

78 

1 

31708 

205 

73 

1  24 

1  75 

221 

1  1  9 

31714 

1 

50 

80 

125 

42 

73 

31  720 

1  25 

35 

34 

73 

125 

58 

31726 

72 

125 

188 

40 

7 

56 

31732 

1  1 

34 

71 

1  25 

24 

6 

31738 

58 

71 

125 

1  89 

56 

245 

31744 

1 

26 

24 

205 

217 

1  3 

31750 

237 

75 

73 

125 

205 

27 

31756 

26 

1 

5 

24 

205 

217 

31762 

13 

237 

75 

71 

1  25 

205 

31768 

27 

26 

201 

58 

76 

125 

31774 

6 

21 

79 

62 

144 

205 

31780 

73 

1  24 

1 

1  5 

24 

205 

31786 

21  7 

1  3 

33 

78 

125 

53 

31792 

6 

0 

78 

205 

27 

26 

31  798 

62 

22 

215 

58 

79 

125 

31  804 

215 

58 

80 

125 

215 

62 

31810 

32 

215 

175 

50 

80 

125 

|  31816 

201 

221 

229 

245 

1  97 

6 

te,  rendendolo  colorato,  ru¬ 
moroso,  e,  finalmente,  im¬ 
possibile  da  interrompere.  I 
controlli  sono  “Z”  per  spo¬ 
starsi  a  sinistra,  “X”  per 
spostarsi  a  destra  e  lo  spa¬ 
zio  per  fare  fuoco. 

Non  esiste  la  possibilità  di 
tornare  al  Basic:  l’unico  mo¬ 
do  di  fermare  la  minaccia 
spaziale  è  quello  di  staccare 
la  spina. 

3.  Provocare  una  perenne 
frustrazione  nei  giocatori, 
con  gli  alieni  che  svolazza¬ 
no  industurbati  ed  il  pun¬ 
teggio  che  non  riesce  a  rag¬ 
giungere  le  tre  cifre  (il  con¬ 
tatore  arriva  fino  a  9999, 
ma  non  si  sono  ancora  visti 
punteggi  al  di  sopra  di 
25!!!). 

4.  Infine,  dimostrare  come 
la  ROM  possa  essere  usata 
per  semplificare  la  pro¬ 
grammazione,  venendo  uti¬ 
lizzata  per  i  compiti  fonda- 
mentali,  come  la  visualizza¬ 
zione  dei  caratteri. 


Routine  interes¬ 
santi 

Ecco  alcune  delle  tecniche 
usate  nel  programma  per  ot¬ 
tenere  i  massimi  risultati 
dalla  macchina,  pur  occu¬ 
pando  una  quantità  di  me¬ 
moria. 

NUMERI  CASUALI:  la  su¬ 
broutine  RND  (indirizzo 
32056)  restituisce  un  nu¬ 
mero  abbastanza  casuale 
nel  registro  A.  Ciò  che  fa  è 
spostare  un  puntatore  at¬ 
traverso  la  ROM  e  restituire 
il  valore  di  una  sua  locazio- 
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ne;  esiste  però  una  regione 
inutilizzata  della  ROM,  a 
partire  da  14446,  dove  tutte 
le  locazioni  contengono 
255.  Questo  crea  un  interes¬ 
sante  periodo  di  gioco,  ogni 
tre  schermi  circa,  in  cui  gli 
alieni  si  muovono  uniforme- 
mente,  non  lanciano  bombe 
ed  emettono  un  suono  diver¬ 
so,  ma  sono  pur  sempre  im¬ 
prendibili. 

SUONO:  la  subroutine 

BLEEP  (31677)  è  usata  per 
emettere  un  breve  suono  a 
caso.  Il  suo  compito  è  unica¬ 
mente  quello  di  rallentare  il 
gioco;  l’effetto  può  essere 
aumentato  incrementando 
il  valore  di  DE  (cioè  il  valore 
delle  locazioni  31683-4). 
Questa  routine  fa  uso  della 
subroutine  ROM  BEEPER 
(949),  che  controlla  l’alto¬ 
parlante.  Si  tratta  di  una 
delle  poche  routine  che  usa- 
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31  822 

21 

1  20 

50 

77 

125 

193 

31828 

1  97 

62 

1  50 

205 

205 

1  24 

31  834 

193 

241 

245 

1  97 

205 

205 

31840 

1  24 

58 

77 

125 

71 

1  6 

31846 

232 

193 

205 

1  4 

125 

24  1 

31  852 

221 

225 

1  75 

205 

1  55 

34 

31  858 

205 

186 

124 

201 

62 

22 

31  864 

215 

221 

1  26 

5 

21  5 

221 

31  870 

126 

6 

21  5 

62 

32 

215 

31  876 

221 

52 

5 

62 

22 

21  5 

31  882 

221 

1  26 

5 

215 

221 

126 

31  888 

6 

215 

62 

154 

215 

201 

31  894 

33 

79 

1  25 

62 

22 

215 

31  900 

1  26 

215 

58 

80 

1  25 

21  5 

31906 

62 

32 

215 

53 

40 

1  3 

31912 

62 

22 

215 

126 

21  5 

58 

31918 

80 

125 

21  5 

62 

153 

21  5 

31924 

201 

1  75 

50 

80 

125 

201 

31930 

62 

22 

215 

221 

1  26 

5 

31936 

21  5 

221 

1  26 

6 

215 

62 

31942 

32 

21  5 

175 

221 

119 

6 

31948 

201 

205 

34 

125 

38 

2 

31954 

22 

0 

205 

56 

125 

230 

31  960 

31 

95 
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181 

3 
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56 

1  25 

205 
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34 

201 
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58 

77 
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6 

21 

79 

31  978 
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1  4 
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58 

76 
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6 

21 

79 

62 

144 

205 
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34 
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221 

70 

2 

31996 

221 

78 

3 
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1  25 

32002 

221 

70 

0 
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78 

1 
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62 
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34 
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62 

22 
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62 

8 
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6 
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16 
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62 
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62 
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60 
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35 

62 
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63 
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34 
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92 
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0 

0 

0 
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0 

8 
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0 

3 

0  ! 

32080 

0 

97 
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104 
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1  1  1 

32086 

1  25 

1  1  8 

1  25 
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125 

1  32 

32092 

125 

1  39 

125 

146 

1  25 

0 

32098 

0 

0 

0 

0 

0 

0 

32104 

0 

0 

0 

0 

0 

0 

32110 
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0 

0 

0 

0 

0 
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0 

0 

0 

0 

0 

0 

321  22 
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0 

0 

0 

0 

0 
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0 

0 

0 

0 
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0 

0 

0 

0 
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32140 
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0 

0 

0 

0 
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0 

0 

0 

0 

0 
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321  52 

0 

22 

0 

0 

32 

83 
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67 

79 

82 

69 

32 

48 

32164 

32 

32 

32 

32 

76 

10  5  fi 

32170 

118 

101 

115 

32 

52 

32 

321  76 

72 

73 

83 

67 

79 

82 

32182 

69 

32 

48 

22 

1  1 

1  1 

32188 

71 

65 

77 

69 

32 

79 

321  94 

86 

69 

82 

22 

4 

1  1 

32200 

73 

78 

86 

65 

68 

69 

32206 

82 

83 

13 

1  3 

1  3 

32 

3221  2 

32 

32 

32 

32 

60 

90 

3221  8 

62 

32 

109 

1  1  1 

1  1  8 

101 

32224 

115 

32 

108 

101 

1  02 

1  1  6 

32230 

13 

32 

32 

32 

32 

32 

32236 

60 

88 

62 

32 

109 

1  1  1 

32242 

1  1  8 
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1  1  5 

32 

1  1  4 
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32248 
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1  1  6 

13 

32 

32 
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32 

32 

60 

83 

80 

67 
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62 

32 

1  02 
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1  1  4 
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32266 

115 
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1  3 

32 

32 

80 
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1  1  4 
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32 

60 
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69 

78 

84 

69 

82 

62 
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32 
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32 

98 
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1  1  0 

13 

13 
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32 
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32 
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32 
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32 
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32308 

32 

32 
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32 
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32 
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32 

32 
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32 
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32 
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32 
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32 

1  47 
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0 

0 
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1 

0 

4 

31 

51 
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60 
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90 

36 
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1  89 

24 

0 

0 

1  28 

0 
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32 
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1  27 

8 

20 

32356 

34 

65 

1 

1  02 

24 

0 
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0 

1  26 
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60 

24 

36 

67 
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76 

48 

0 
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30 
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0 

31 
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7 

56 

1  92 
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66 

36 

1  29 
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36 
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66 
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3 

28 
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7 
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0 
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7 

0 

24 
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60 

60 

60 

24 

60 

0 
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60 

24 

24 

60 

1  26 

324  1  6 

60 

0 

0 

0 

0 

0 

32422 

0 

0 

0 

0 

0 

0 

32428 

0 

0 

0 

0 

0 

0 

32434 

0 

0 

0 

0 

0 

0 
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0 

0 

0 

0 

0 

0 

32446 

0 

0 

0 

0 

0 

0 
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0 
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0 
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0 

0 

0 

0 
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0 

0 

0 

0 
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0 

0 

0 

0 

0 
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0 

0 

0 
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0 
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0 

0 

0 

0 

0 

0 
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0 
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0 

0 

0 

0 
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0 

0 

0 

0 

0 

0 

no  il  registro  IX,  che  va 
quindi  preservato  con  PUSH 
IX. 

Per  usare  BEEPER,  DE  deve 
contenere  un  numero  ugua¬ 
le  a  INT  (frequenza  durata), 
e  HL  un  numero  uguale  a 
INT  (437500/frequenza  - 
30.125). 

Ad  esempio,  per  ottenere  un 
LA  a  440Hz  della  durata  di 
2.5  secondi: 

DE  dovrà  contenere  INT 
(440*2.5)=  1100. 

HL  dovrà  contenere  INT 
(437500/440  -  30.125)  = 
962 

CONTROLLO  DEGLI  ALIENI: 
il  registro  IX  è  usato  per 
conservare  l’indirizzo  di  ini¬ 
zio  dell’area  dati  relativa  a 
ciascun  alieno,  semplifican¬ 
do  di  molto  il  programma;  la 
colonna  occupata,  ad  esem¬ 
pio,  è  (IX  +  1),  per  qualun¬ 
que  alieno. 

Tratto  da  “Supersinc”  N. 
3/’85. 
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3D 


Questo  programma  elabora 
grafici  tridimensionali,  che 
vi  potranno  essere  presen¬ 
tati  sotto  qualsiasi  angola¬ 
zione  e  di  cui  potrete  varia¬ 
re  le  dimensioni  e  ricavare 
la  prospettiva. 

Ciascun  grafico  è  composto 
da  segmenti  rettilinei  (nu¬ 
mero  massimo  400)  le  cui 
coordinate  delle  estremità  x, 
y  e  z,  sono  contenute  in  una 
matrice,  che  può  essere  me¬ 
morizzata  o  letta  separata- 
mente  su  nastro.  Il  pro¬ 
gramma  è  suddiviso  in  un 
certo  numero  di  moduli,  se¬ 
lezionati  dal  “menu"  princi¬ 
pale,  e  comprende  subrouti¬ 
ne  e  funzioni  definite 
dall’utente  per  raggiungere 
gli  scopi  desiderati. 

Quando  si  dà  il  RUN  al  pro¬ 
gramma,  viene  innanzitutto 
presentato  il  menu  princi¬ 
pale. 

Premere  il  tasto: 

D  -  Per  visualizzare  i  dati 
I  -  Per  inserire  i  dati 
L  -  Per  caricare  i  dati 
P  -  Per  scrivere  i  dati 
Q  -  Per  lasciare 
S  -  Per  registrare 
V  -  Per  mostrare 
L’opzione  D  vi  chiede  a  par¬ 
tire  da  quale  segmento  vole¬ 
te  che  i  dati  vengano  visua¬ 
lizzati,  le  linee  usate  per 
comporre  il  grafico  sono  nu¬ 
merate  da  1  a  400.  Il  pro¬ 
gramma  presenta  poi  le 
coordinate  x,  y  e  z  per  cia¬ 
scuna  delle  estremità  e  vi 
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ml=HOO:  CO  SUB  9000 
p$ ( mi , 6 ) :  DIM  z $ ( 6 ) 
t$-="  linee  xl  yl  zi 
Menu'  princiale 
:  PRINT  AT  5,7;"Premi 


x  2  y  2  z  2  " 


il  tasto; 


1  020 
i" 

1  030 
1  OHO 
1  050 
1  060 
1070 
1  080 
1  1  00 
1110 
1  1  20 
1  1  30 
1  1  HO 
1  1  50 
1  1  60 
1  1  70 
1  200 


PRINT  TAB  5;"D-Per  visualizzare  i  dal 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF  k$ 


"I-Per 
"L-Per 
"  P  -  P  e  r 
"Q-Per 
"S-Per 
"V-Per 


inserire  i 
caricare  i 
scrivere  i 
lasciare" 
registrare" 
mostrare" 


dati" 

dati" 

dati" 


>"  THEN  GO  TO  2000 
k$«"I"  THEN  GO  TO  3000 
k $ ■=  " L "  THEN  GO  TO  HOOO 
k$«"P"  THEN  GO  TO  5000 
k $  =  " S "  THEN  GO  TO  6000 
k $ «=  "  V  "  THEN  GO  TO  7000 
k $ < > " Q "  THEN  GO  TO  11  00 
:  PRINT  AT  5,0;  FLASH  1;"  PROGRAM 


MA  TERMINATO  " 

1210  PRINT  ""Per  r  i  -  i  n  i  z  i  ar  1  o  ,  batti" 

1220  PRINT  AT  10,5;"RUN  (pulisce  i  dati)" 

TO  1 000" ; T A B  5;"(manti 


GO 


1230  PRINT  "o 
ene  i  dati)" 

1 2 HO  STOP  1 

REM  Visualizza 
CLS  :  PRINT  AT 


2000 
201  0 
2020 
THEN 
2100 
2110 
200 
2120 
0 

2130 


i  dati 
10,5; "Dalla 


linea  ? 


GO  SUB  8100:  LET  1-i:  IF  1<1  OR  l>ml 
GO  TO  2020 
CLS  :  PRINT  t$ 

FOR  a-1  TO  1+16:  IF  a>ml  THEN  GO  TO  2 


PRINT 


FOR  b-1  TO  6 
(a  ,b)-1 33;  :  NEXT  b 
21  HO  NEXT  a 

PRINT  ""Ancora  (S/N)  ? 
INPUT  k $ 

IF  k$<>"N"  AND  k  $  <  > " S " 


IF  p$ ( a  )  =z $  THEN  GO  TO  21H 
PRINT  TAB  1 +  H  *  b ;  CO  DE  p$ 


2200 

2210 

2220 

0 

2230 
22  HO 
3000 
3010 
i  nea 
i  mo 


THEN  GO  TO  221 


IF  k $  =  " N "  OR  a>ml  THEN  GO  TO  1000 
LET  1  *=a  :  GO  TO  2100 
REM  Inserimento  dati 
CLS  :  PRINT  "Inserisci  il  numero  c 
,  seguito  dai  dati  x,  y  &  z  del 
punto,  poi  dai  dati  x,  y,  &  z  del  £ 


ndo  punto 


I  numeri  devono  «ss*- 


separati  da  spazi." 

3020  PRINT  '"Oppure  premi  ENTER  per  toranr 
e  al  menu'  principale" '' t$ 

3100  INPUT  LINE  1$:  IF  i$«""  THEN  GO  TO  IO 
00 

31  1  0 
THEN 
3120 
31  30 
3100 
31  HO 
3150 
31  60 
31  70 


GO  SUB  8000: 
GO  TO  3100 
FOR  a-1  TO  6 
GO  SUB  8000: 


LET  1 * i :  IF  1<1  OR  l>ml 


IF  ABS  i > 1 00  THEN  GO  TO 


’  1  ; 
TAB 


2  +  4  *  a  ;  CO  DE  p$ 


LET  p$(l,a)«CHR$  (  1 33+ i ) 

NE XT  a 

POKE  23692,0:  PRINT 
FOR  a= 1  TO  6:  PRINT 
(1 ,a )- 1 33  ;  :  NE  XT  a 
3180  GO  TO  3100 

4000  REM  Caricamento  dati  da  nastro 
4010  CLS  :  PRINT  AT  5,0;"Nome  file  dati  ? 

"  ;  C  H  R  $  8; 

4020  INPUT  LINE  i$:  PRINT  i$ 

LOAD  i$  DATA  p$() 

INPUT  "Verifico  (S/N)  ?  ";?  LINE  a$ 

IF  a  $  =  " N "  OR  a  $  =  " n "  THEN  GO  TO  1000 
IF  a  $  <  > " S "  AND  a$<>"s"  THEN  GO  TO  404 


4030 

4040 

4050 

4060 

0 

4070 

4080 

4090 

5000 

5010 

5020 

5030 


PRINT  '"'Premi  play 
VERIFY  i$  DATA  p$() 

GO  TO  1000 
REM  Scrive  i  dati 
GO  SUB  8200 
LPRINT  't$ 

FOR  a-=11  TO  12:  LPRINT  ' 
z$  THEN  GO  TO  5050 
5040  FOR  b-1  TO  6:  LPRINT  TAB 
$(a  ,b)-1 33; :  NEXT  b 
5050  NEXT  a 
5060  LPRINT  ' ' ' 

5080  GO  TO  1000 
6000  REM  Salvataggio  dati 
6010  CLS  :  PRINT  AT  5,0;"Nome 
"  ;  C  H  R  $  8; 

6020  INPUT  LINE 
20 

6030 
6040 
6050 
6060 
6070 

programma 


per  la  verifica" 


i;  :  IF  p$(a  )  «= 
2  +  4  *  b ;  CODE  p 


file  dati  ? 

i $  :  IF  i$«=""  THEN  GO  TO  60 

IF  LEN  i  $  > 1 0  THEN  LET  i$«i$(  TO  10) 
PRINT  i$ 

SAVE  i$  DATA  p$() 

PRINT  '"Riavvolgi  per  la  verifica" 
PRINT  '"Se 
s  i 


la  verifica  fallisse, 
fermerà' " ' ' "Usa  GO  TO 


il 

1  000 


per  continuare,"' "e  non  RUN" 

6080  VERI FY  i$  DATA  p$() 

6090  GO  TO  1000 

7000  REM  Mostra  il  disegno 

7010  CLS  :  PRINT  AT  5 , 0  ;  " I mmet t i ; " '  ' 

7020  PRINT  TAB  3;"Primo  no  di  linea", TAB  3 
■."Ultimo  no  di  linea" 

7030  PRINT  TAB  3;"Fattore  di  scala  (1-999) 


chiede  se  ne  volete  vedere 
altri  oppure  tornare  al  me¬ 
nù  principale. 

L’opzione  I  permette  di  ag¬ 
giungere  nuovi  dati,  o  di  mo¬ 
dificare  quelli  esistenti.  Per 
ogni  segmento  del  grafico,  è 
necessario  impostare: 

—  il  numero  di  riga  (intero 
da  1  a  400); 

—  le  coordinate  x,  y  e  z  per 
una  estremità; 

—  le  coordinate  x,  y  e  z  per 
l’altra  estremità. 

Ogni  valore  delle  coordinate 
deve  essere  un  intero  com¬ 
preso  tra  -  100  e  100. 1  set¬ 
te  numeri  sono  impostati  su 
di  una  singola  riga  e  i  diver¬ 
si  valori  vanno  separati  da 
uno  spazio.  Se  uno  qualsiasi 
dei  valori  impostati  non  ri¬ 
sultasse  valido,  il  program¬ 
ma  ignora  l’intera  riga  e  si 
pone  in  attesa  che  vengano 
inseriti  i  dati  idonei.  I  valori 
si  presentano  poi  sullo 
schermo  ed  il  cursore  si 
sposta  a  capo  per  la  defini¬ 
zione  di  un  nuovo  segmento. 
Potrete  continuare  l’impo¬ 
stazione  in  tale  modo,  oppu¬ 
re  tornare  al  programma 
principale  battendo  una  ri¬ 
ga  vuota  (quindi  premendo 
semplicemente  ENTER). 
L’ordine  dei  segmenti  non 
ha  alcuna  importanza  e  i 
vecchi  valori  possono  esse¬ 
re  sostituiti  battendo  una 
nuova  linea  con  lo  stesso 
numero. 

L’opzione  L  vi  permette  di 
caricare  un  file  di  dati  da 
nastro,  cancellando  tutti  i 
dati  in  memoria.  Una  volta 
caricato  il  file,  lo  potrete  ve¬ 
rificare:  se  il  controllo  dà 
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esito  negativo,  il  program¬ 
ma  si  arresta  e  per  ripartire 
dovrete  dare:  GO  TO  1000. 
L’opzione  P  permette  di  otte¬ 
nere  la  stampa  di  un  certo 
blocco  di  segmenti  per  mez¬ 
zo  della  zx  printer.  Il  pro¬ 
gramma,  in  questo  caso, 
chiede  il  primo  e  l’ultimo 
numero  dei  segmenti  com¬ 
ponenti  il  blocco  da  stampa¬ 
re,  i  quali  andranno  inseriti 
su  di  una  stessa  riga,  sepa¬ 
rati  da  uno  spazio. 

L’opzione  Q  arresta  il  pro¬ 
gramma,  che  potrà  essere 
fatto  ripartire  con  GO  TO 
1000  conservando  i  dati  o 
con  RUN  cancellandoli. 
L’opzione  S  registra  i  dati 
con  un  nome  di  file  (che  non 
dovrà  eccedere  i  dieci  carat¬ 
teri). 

A  registrazione  avvenuta,  il 
programma  vi  consiglia  la 
verifica  per  vedere  se  tutto  è 
stato  eseguito  correttamen¬ 
te.  In  caso  negativo,  fate  ri¬ 
partire  il  tutto  col  solito  GO 
TO  1000  per  conservare  i 
dati  in  memoria. 

Per  registrare  il  programma 
vero  e  proprio,  e  non  i  dati,  è 
necessario  bloccarlo  (usan¬ 
do  l’opzione  Q,  oppure  pre¬ 
mendo  CAPS/SHIFT  e  6,  se  il 
programma  stesso  è  in  atte¬ 
sa  dell’impostazione  dei  da¬ 
ti). 

L’opzione  V  permette  infine 
di  osservare  il  grafico.  Per 
fare  ciò,  il  programma  vi 
chiede 

—  i  numeri  del  primo  e 
dell’ultimo  segmento  del 
blocco  che  volete  visualiz¬ 
zare; 

—  un  fattore  di  “scala”  sotto- 
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7040  PRINT  TAB  3;"Rotazione  orizzontale  (0 
-360)" 

7050  PRINT  TAB  3;"Rotazione  verticale  (0-3 
60)" 

7060  PRINT  TAB  3  ;  "Prof ondi ta '  (0-9)" 

7070  PRINT  '"Separati  da  spazi" 

7100  GO  SUB  8100:  LET  1 1  -  i  :  IF  11<1  OR  11> 
mi  THEN  GO  TO  7100 

7110  GO  SUB  8000:  LET  12-i:  IF  12<11  OR  12 
>ml  THEN  GO  TO  7100 

7120  GO  SUB  8000:  LET  s-i/100:  IF  s<.01  OR 
s>9 . 9  THEN  GO  TO  7100 

7130  GO  SUB  8000:  LET  hr-i:  IF  hr<0  OR  hr> 
360  THEN  GO  TO  7100 

7140  GO  SUB  8000:  LET  vr-i:  IF  vr<0  OR  vr> 
360  THEN  GO  TO  7100 

7150  GO  SUB  8000:  LET  d-i:  IF  d<0  OR  d>9  T 
HEN  GO  TO  7100 
7200  CLS 

7210  LET  ch-COS  (hr*PI/l80):  LET  sh-SIN  (h 
r»PI/1 80) 

7220  LET  c v-COS  (vr*PI/l80):  LET  sv-SIN  (v 
r»PI/1 80 ) 

7300  FOR  1-11  TO  12:  IF  p$(l)«z$  THEN  GO  T 
0  7400 

7310  LET  xl-FN  b ( 1 ) :  LET  yl-FN  b(2):  LET  z 

1- FN  b ( 3 ) 

7320  LET  X2-FN  b ( 4 ) :  LET  y 2-FN  b(5):  LET  z 

2- FN  b ( 6 ) 

7330  LET  xxl -xl «eh— yl *sh:  LET  xx2-x2*ch-y2 
*sh 

7340  LET  yyl-yl *ch  +  x 1 *  sh  :  LET  yy2-y2*ch+x2 
*sh 

7350  LET  yy 1 -yy 1 *cv- zi ‘sv :  LET  yy2-yy2*cv- 
Z2*3V 

7360  LET  zzi -zi *cv*yy1 *3v:  LET  zz2-z2»cv*y 
y2»sv 

7370  LET  p-1 +d»zz1 /1 000  :  LET  xx1-xx1*p:  LE 
T  yyi-yyi*p 

7380  LET  p-1 +d*zz2/1  000  :  LET  xx2-xx2*p:  LE 
T  yy2=yy2*p 

7390  PLOT  xxl +1 27 , yy 1 +87  :  DRAW  xx2-xx1,yy2 

-  yy  i 

7400  NEXT  1 

7410  INPUT  "Stampo  (S/N)  ?  LINE  i$ 

7420  IF  i$  — "s"  OR  i  $  =  " S "  THEN  COPY  :  GO  TO 
1  000 

7430  IF  i  $  « " n "  OR  i  $  -  " N "  THEN  GO  TO  1000 
7440  GO  TO  7410 

8000  REM  Converte  in  i  il  primo  numero  di 
i$ ,  accorcia  i$ 

8010  LET  sgn-1 

8020  LET  i -0  :  IF  i$-""  OR  i$-"  "  THEN  RETU 
RN 

8030  IF  i$(1)<>"-"  AND  (  i  $ ( 1  )  < " 0 "  OR  i$(1) 
> " 9 "  )  THEN  LET  i  $ - i $ ( 2  TO  ):  GO  TO  8020 
8040  IF  i$(1)-"-"  THEN  LET  sgn--1:  LET  i$- 
i$(  2  TO  ):  GO  TO  8020 


■ 


8050 
8060 
8070 
8080 
c  T0 
8090 
8100 
8110 
8200 
1 1  &  12 

8210  CLS  :  PRINT  AT  1 0 , 0  ; " Immet t i  i  numeri 
della  prima  e  dell'ultima  linea  separati 
da  uno  spazio;" 

8220  INPUT  LINE  i$:  CO  SUB  8000:  LET  11-i 
8230  IF  11<1  OR  1 1 >ml  THEN  GO  TO  8200 
8240  GO  SUB  8000:  LET  12-i  ^ 

8250  IF  1 2 < 1  OR  1 2> lm  THEN  GO  TO  8200 
8260  RETURN 


FOR  c-1  TO  LEN  i$:  LET  c$=i$(c) 

IF  c $ < " 0 "  OR  c $ > " 9 "  THEN  GO  TO  8080 
NE  XT  C 

LET  i*=sgn*VAL  i$(  TO  c-1):  LET  i$-i$( 
) 

RETURN 

REM  Ottiene  i$,  chiama  8000 

INPUT  LINE  i $  :  GO  TO  8000 

REM  Ottiene  la  prima  e  l'ultima  linea 


9000 

DEF  FN  1 

o(z  )- 

(CODE 

P$(  1  . 

z)-1 33)*s 

9010 

RETURN 

Elenc 

o  di  va 

lori 

per  disegna 

re  lo 

Shu 

linea 

x  1 

yi 

zi 

x2 

y2 

z2 
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34 

90 
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90 

20 

-30 

forma  di  un  numero  intero, 
compreso  tra  1  e  999,  che 
determina  le  dimensioni  del 
grafico  (per  iniziare,  è  me¬ 
glio  impostare  50); 

—  la  rotazione  orizzontale 
in  gradi:  numero  intero  tra 
0  e  360; 

—  la  rotazione  verticale, 
sempre  in  gradi  e  sempre 
come  un  numero  intero  tra 
0  e  360; 

—  un  valore  di  profondità 
(intero  tra  0  e  9). 
Quest’ultimo  valore  deter¬ 
mina  la  profondità  di  pro¬ 
spetto:  la  cifra  0  non  dà  al¬ 
cun  effetto,  mentre  la  vista 
migliore  si  ottiene  con  i  va¬ 
lori  3  o  4.  Ripetiamo  che  i 
valori  devono  essere  impo¬ 
stati  tutti  su  di  una  stessa 
riga  e  separati  da  uno  spa¬ 
zio.  Se  anche  uno  solo  dei 
dati  non  risulta  idoneo,  il 
programma  ignora  l’intera 
riga  ed  attende  dati  corretti. 
Il  grafico  è  basato  sui  dati 
relativi  al  blocco  di  segmen¬ 
ti  preso  in  considerazione, 
per  cui  potrete  registrare 
sotto  un  solo  file  i  dati  ri¬ 
guardanti  più  di  un  grafico, 
oppure  visualizzare  solo 
una  parte  del  disegno  con 
dimensioni  maggiorate.  Se  il 
grafico  supera  la  grandezza 
dello  schermo,  il  program¬ 
ma  si  blocca  e  per  farlo  ri¬ 
partire  dovrete  usare  GO  TO 
1000.  A  lavoro  eseguito,  il 
programma  vi  chiederà  se 
volete  stamparlo  su  carta 
per  mezzo  della  stampante. 

Tratto  dal  libro:  “Alla 
scoperta  del  Basic  dello 
Spectrum”. 
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RENNE 


Il  gioco 

È  già  da  qualche  giorno  che 
respira  aria  di  Natale,  come 
poteva  il  nostro  Spectrum 
rimanere  insensibile  all'a¬ 
tmosfera  prefestiva  che  an¬ 
nuncia  doni  e  felicità? 

Ecco  allora  un  programma 
che  nella  sua  semplicità 
mette  a  fuoco  quello  che  è 
per  i  bambini  il  momento 
più  atteso:  Babbo  Natale  con 
la  propria  slitta,  volta  sopra 
i  tetti  della  città  immersa 
nel  sonno  per  dispensare  re¬ 
gali  a  destra  e  a  manca,  ma 
per  far  ciò  deve  recuperare 
al  volo  i  pacchi  che  piovono 
dal  cielo  in  maniera  casuale 
e  calarli  nei  camini  delle  ca¬ 
se  senza  farsi  vedere  dai 
bambini  che  sono  a  letto,  la 
neve  che  c’è  sui  tetti  si  scio¬ 
glie  lentamente  perché  i 
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1  000 

PAPER  1:  INK  7:  BORDER  1:  CLS 

1  005 

POKE  23658,8:  GO  SUB  1  230 

1010 

LET  hs-0 

1015 

GO  SUB  1 400 

1  020 

LET  sk« . 98  :  LET  s-0 

1  025 

LET  a  $  =  "  {  A  }  "  :  LET  b$="{B}" 

1  030 

LET  c $ ■=  "  {  C  }  "  :  LET  x-27 

1  035 

DIM  d$ ( 28 ) 

1  040 

LET  g-1  :  LET  h-INT  (RND*28)+2 

1  0*15 

PRINT  AT  0,22; "RECORD: "  ;  h  S 

1  050 

LET  p-0 

1  055 

PRINT  AT  0,0;" REGALI: ";s 

1060 

IF  INKEY$“"X"  THEN  LET  x-x+(2 

AND 

x<  2 

7) 

1065 

IF  INKEY$-"X"  THEN  LET  a  $  -=  "  {  D } 

lt  . 

LET 

b$  =  " 

{E}":  LET  C  $  ■=  "  {  F  }  " 

1  070 
) 

1075 

IF  INKEY$*>"Z"  THEN  LET  X*=x-(2 

AND 

x  >  1 

IF  INKEY$="Z"  THEN  LET  a$-="{A} 

fi  . 

LET 

b$«" 

{B}":  LET  c $  =  " { C } " 

1  080 

PRINT  AT  1 0 , X - 2  ; "  " ; AT  10, x 

;  IN 

K  2; 

a  $  ;  INK  0  ;  b$ ;  INK  2;C$; 

1  085 

IF  NOT  p  THEN  LET  g-g+1:  PRINT 

AT 

g“1 

h  •  ” 

"  ; AT  g,h;  INK  6  ; " { G } " 

1  090 

IF  g-=10  THEN  IF  h*=x  +  2  OR  h«x  +  1 

OR 

h  =  x 

THEN  LET  p«1 

1095 

IF  g*=  1  2  THEN  IF  SCREEN$  (g  +  1,h)*" 

:  "  T 

HEN  GO  TO  1 1 20 

1100  IF  g- 1  2  THEN  PRINT  AT  12, h;"  LET  g 
■=1  :  LET  h-INT  (RND*28)+2 

1105  IF  p  THEN  IF  INKE Y$-"M"  THEN  LET  g-10 
:  LET  h-x-1+(a$-"{D}")+(3  AND  c$-"{C}"):  L 
ET  p-0 

1110  IF  RN D> sk  THEN  LET  q-INT  (RND*7)+1:  L 
ET  e  =  INT  ( RND* 4  )  :  PRINT  PAPER  3;AT  1  6  ,  q  *  ^4  - 
e*1  ;  "  LET  d$(q*4-e)-"p"  :  IF  d$(q*4-3  TO 
q*4)-"pppp"  THEN  GO  TO  1155 
1115  GO  TO  1 060 
1120  PRINT  AT  1 2 , h ; "  " 

1125  IF  SCREEN$  (l8,h)-"_"  THEN  GO  TO  1040 

1130  LET  3-3+1:  PRINT  AT  0 , 0  ; " R E G A L I  :  "  ;  3 

1135  PRINT  AT  18, h;  INK  0;  PAPER  6;" _ " ; AT 

1  9  ,  H  ;  " _ " 

1140  FOR  f-1  TO  3:  BEEP  .001,30:  NEXT  f 
1145  FOR  f-4  TO  28  STEP  4:  IF  SCREEN$  (18, 
THEN  NEXT  f:  LET  sk-sk-.02:  CLS  :  G 
0  SUB  1  400  :  GO  TO  1 025 
1150  GO  TO  1040 

1155  IF  SCREEN$  ( 1 8 , q * 4 ) < > "  "  THEN  GO  TO  1 
1  80 

1 1 60  GO  TO  1 060 

1165  RESTORE  1170:  LET  Z-.3:  LET  C-.6:  FOR 
f-1  TO  26:  READ  a,b:  BEEP  a,b:  NEXT  f 
1170  DATA  z , 6 , z , 6 , c , 6 , z , 6 , z , 6 , c , 6 , z , 6 , z , 9 , 
z,2,z,4,l,6,z,6,z,7,z,7,z,7,z,7,z,7,z,6,z, 
6,z,6,z,9.z,9,z,7,z,4,c,2,c,2 
1175  RETURN 

1180  FOR  f-10  TO  1  STEP  -.5:  PRINT  AT  f,x; 
INK  2  ;  a  $  ;  INK  0;b$;  INK  2;C$;AT  f+1,X;" 

":  BEEP  . 005 , 2*f :  NEXT  f 
1185  IF  s>hs  THEN  LET  hs-s 
1  1 90  PRINT  AT  1  ,x;  »  " 

1 1 95  PRINT  AT  g.h; "  " 

1  200  PRINT  FLASH  1  ; AT  1 8  ,  q  *  4  -  1  ;  INK  0;  PAP 
ER  6;"  _ " ;  A  T  1 9 , q  *  4  -  1  ;"{K}  " 

1205  PRINT  AT  8,8;  FLASH  1;"TI  HANNO  VISTO 


1210  GO  SUB  1 1 65 

1215  PRINT  AT  11,2;  FLASH  1;"PREMI  UN  TAST 
0  PER  GIOCARE  .  .  " 

1220  PAUSE  0:  PAUSE  0 
GO  TO  1015 

PRINT  AT  0,9;  FLASH  1  ; " R E N N E  & 


PRINT  "E 'Natale  e  Tu, che  sei 


1225  CLS  : 

1230  CLS  : 

REGALI" 

1235  PRINT 
il  Grande" 

1240  PRINT  "BABBO  NATALE, devi  consegnare  a 
1" 

1245  PRINT  "piu' presto  tutti  i  REGALI  che 


1250  PRINT  "piovono  dal  tuo  deposito  su  ne 
1" 


bambini  che  hanno  ricevuto 
i  regali  accendono  la  luce,  se 
si  scioglie  completamente 
gli  stessi  bambini  si  affac¬ 
ciano  alla  finestra  e  il  gioco 
finisce. 


I  comandi 

Tasto  Z  per  spostarsi  a  sini¬ 
stra 

Tasto  X  per  spostarsi  a  de¬ 
stra 

Tasto  M  per  calare  i  regali 
nei  camini  delle  case. 

Tratto  dal  libro  "Spectrum 
Tool " 
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1  255 

PRINT 

M 

1  260 

PRINT 

no" 

1  265 
e" 

PRINT 

1  270 

PRINT 

1  275 

II 

PRINT 

1  280 

PRINT 

e-" 

1  285 
e" 

PRINT 

1  290 
si" 

PRINT 

1  295 

PRINT 

1  300 

PRINT 

—  -  fi 

1  305 

PRINT 

1310 

PRINT 

1  315 

PRINT 

1  320 

PRINT 

1  325 

PRINT 

-  tf 

1  330 

PRINT 

CARE  , 

»» 

"cielo. Ma  ATTENTO!  devi  fare  in 

"modo  che  i  bambini  non  ti  veda 

"altrimenti  non  potrai  piu'  far 

"i  tuoi  magnifici  Regali." 

"La  NEVE  sui  tetti  si  scioglie 

"perche' i  bambini  che  hanno  rie 

"vuto  i  Regali  accendono  la  lue 

"Se  ti  scoprono , quando  la  Neve 

"e'sciolta  hai  perso." 

M _ _ _ _ _ _ _ _ 

"  <Z>  per  andare  a  SINISTRA" 

"<X>  per  andare  a  DESTRA" 

"<M>  per  calare  i  regali  nei" 

"  camini  delle  Casette" 

n  — _ _ _ 

FLASH  1  ;  " B ATT I  UN  TASTO  PER  GIO 


1  335  RESTORE  13*10:  FOR  y-USR  "a"  TO  USR  "k 

"  +7  :  READ  x:  POKE  y,X:  NEXT  y 

1  3*10  DATA  0,0, 1,0, 0,0, 0,0 

13*<5  DATA  192,64,160,224,127,126,99,82 

1350  DATA  8,28,8,124,156,72,63,128 

1355  DATA  16,56,16,62,56,18,252,1 

1360  DATA  3,2,5,7,254,126,198,74 

1 365  DATA  0,0,128,0,0,0,0,0 

1370  DATA  0,0,0,54,54,0,54,54 

1 375  DATA  0,1,3,7,15,31,63,127 

1380  DATA  0,128,192,224,240,248,252,254 

1385  DATA  255,220,73,65,64,0,0,0 

1390  DATA  24,60,86,60,24,126,255,255 

1395  PAUSE  0:  CLS  :  RETURN 

1400  FOR  x®2  TO  26  STEP  4 

1  405  PRINT  INK  3;AT  1 3  ,  x ♦ 1  ;  "  :  "  ;  PAPER  3;  I 
NK  5  ;  AT  1 4  ,  x ♦ 1  ;  " { H } " ;  PAPER  1;"{I}";AT  15, 
x  ;  "  {  H }  { 2gs  8  }  {I}";  INK  7;  PAPER  3;AT  l6,x:" 
{  4  J  }  "  ;  A  T  17,  x;  PAPER  1;  INK  3  ;  " { 4gs8 } " ; AT 

1 8 , x ; " { g  s  8 }  { g  s  8 } " ;  A  T  19,x:"{gs8}  (gs8}" 

; AT  20,x;"{4gs8}";AT  2 1  , x ; " { 4 gs 8  }  " 

1410  NEXT  x 

1415  OVER  1:  INK  3:  FOR  x-48  TO  208  STEP  3 

2 

1  420  PLOT  x , 0  :  DRAW  0,39:  NEXT  X:  INK  7:  0 
VER  0: 

1425  FOR  x=24  TO  216  STEP  32:  PLOT  x,23:  D 
RAW  15,0:  NEXT  x 
1430  RETURN 


PORTAROUTINE 


1 

REM  ARCHIVIO  &  CARICAMENTO 

R 

OUT INES  IN  L/M 

2 

LET  num-4 

3 

DIM  w$  (  num  ,  32  )  :  LET  o-O:  LET  p-0 

4 

DIM  q$ ( num  ,  32 ) :  DIM  t(num):  DIM  s(num 

):  LET  cont«0 

5 

LET  a-10:  LET  t> - 1  1  :  LET  c-12:  LET 

d-  1 

3:  LET  e- 1 M  t  LET  f«15 

7 

LET  w$(1)-"1)  SCROLL  8  PIXEL  -SINIST 

RA"  : 

LET  w$(2)-"2)  SCROLL  8  PIXEL  - 

DEST 

RA"  : 

LET  w $  (  3  )  ■=  "  3  )  SONORO/BITONALE"  : 

LET 

w$(4) 

=  "  4  )  SONORO/SIRENA" 

1  0 

PRINT  "Quale  routine  ti  interessa 

^  Il  » 

FOR  j-1  TO  num:  PRINT  w$(j):  NEXT  j 

1  2 

INPUT  i$ 

1  3 

IF  i$<"1"  OR  i  $  > " 9 "  THEN  BEEP  .5, 

24  : 

GO  TO  12 

1  4 

LET  rout-VAL  i$ 

16 

IF  rout<1  OR  rout>num  THEN  BEEP  . 

5,36 

:  GO 

TO  12 

18 

CLS  :  PRINT  AT  2,0;  PAPER  2;  INK 

7;w$ 

( rout ) 

20 

RESTORE  1 00*rout 

23 

READ  t$ :  READ  n 

25 

PRINT  AT  7,0; "NUMERO  BYTES  ";n 

30 

PRINT  '"INDIRIZZO  ?";:  ‘INPUT  indirizz 

0 

32 

IF  indirizzo<30000  THEN  BEEP  .5,36:  G 

0  TO 

30 

35 

PRINT  CHR$  8  ; i nd i r i zzo 

40 

IF  t  $  -  "  H  "  THEN  GO  TO  60 

50 

FOR  z-0  TO  (n-1  ) 

52 

READ  v 

55 

POKE  (  indirizzo  +  z) ,v 

57 

NEXT  z 

59 

GO  TO  70 

60 

FOR  z-0  TO  (n-1 ) 

62 

READ  p$ 

64 

LET  v  -  (  V  A  L  p$(1  )*16)+VAL  p$(2) 

66 

POKE  (indirizzo+z) ,v 

68 

NEXT  z 

70 

LET  h$="VUOI  REGISTRARLA  ?" 

72 

PRINT  '  ' h  $  ; "  (S/N)":  FOR  j-1  TO 

100: 

NEXT  j 

73 

IF  INKEY$-"s"  OR  INKEY$-"S"  THEN 

GO  T 

0  (80+o) 

74 

IF  INKEY$-"n"  OR  INKEY$="N"  THEN 

GO  T 

0  (90+p) 

75 

GO  TO  73 

80 

INPUT  "nome  della  routine  ?";r$ 

85 

SAVE  r$CODE  indirizzo, n 

|  90 

LET  h$="VUOI  SPERIMENTARLA  ?" 

Sempre  più  frequentemente 
si  trovano  sulle  pagine  delle 
riviste  brevi  ed  efficaci  rou- 
tines  in  linguaggio  macchi¬ 
na,  che  consentono  di  rea¬ 
lizzare  gradevoli  effetti  so¬ 
nori,  lo  scroll  di  pagine  gra¬ 
fiche,  il  renumber  di  un  pro¬ 
gramma,  e  così  via. 

Per  aiutare  il  lettore  a  non 
perdersi  in  questo  mare  di 
utility,  presentiamo  un  pro¬ 
gramma  che  può  servire  da 
archivio  per  numerose  rou- 
tines  (quasi  100),  consen¬ 
tendo  anche  un  loro  rapido 
caricamento. 

Il  programma  contiene,  an¬ 
che  a  titolo  di  esempio,  quat¬ 
tro  routines:  le  prime  due 
realizzano  lo  scroll  di  un  ca¬ 
rattere  (un  pixel  alla  volta) 
a  sinistra  o  a  destra;  le  ulti¬ 
me  due  realizzano  effetti  so¬ 
nori. 
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Per  archiviare  nuove  routi- 
nes  prendete  come  esempio 
una  di  quelle  già  inserite  nel 
listato. 

Se  ad  esempio  volete  archi¬ 
viare  una  quinta  ruotine: 

1)  Incrementate  il  valore 
della  variabile  num  alla  li¬ 
nea  2  (num  =  5) 

2)  Ponete  la  routine  in  una 
linea  DATA,  numerata  op¬ 
portunamente  (510,  per 
routine  5,  610  per  la  6...) 

3)  Fate  precedere  la  routine 
da  una  altra  linea  di  DATA  , 
contenente  due  dati  soltanto 
“D”  o  UH”  a  seconda  che  la 
routine  sia  stata  trascitta  in 
notazione  decimale  o  esade- 
cimale,  seguita  dal  numero 
di  bytes  da  cui  è  costituita. 

4)  Infine  attribuite  un  nome 
alla  routine,  assegnandole 
un  indice  della  matrice  w$ 
(nel  nostro  esempio  w$(5) 
=  “nuovo  nome”). 

Tratto  dal  libro  “Paper 
Book " 


Non  perdete  il 
prossimo  numero  di 
Jackson  Soft 
Compilation.  Lo 
troverete  in  edicola  in 
Gennaio 


92  LET  0-15:  LET  p-9:‘G0  TO  72 
95  RANDOMIZE  USR  indirizzo 
99  LET  cont-cont+1:  CO  TO  9800 

100  REM  ««a*»*»******»**»**#*** 

101  REM  routine  1  (34  bytes) 

102  REM  SCROLL  8  PIXEL-SINISTRA 

103  REM  *********************** 

105  DATA  "D"  ,3** 

110  DATA  6,8,33,31 ,64,22, 0,30, 65, 1^,32, 17 
5,126,23,119,43,13,32,249,25,62,88,188,40, 

3.43.24.235.5.175.184.32.225.201 

200  REM  »***#»****#*******»»»»* 

201  REM  routine  2  (26  bytes) 

202  REM  SCROLL  8  PIXEL-DESTRA 

203  REM  a»**»»*****»**»***#»**# 

205  DATA  " D "  ,26 

210  DATA  6,8,33,0,64,14,32,175,126,31,119 
,35,13,32,249,62,88,188,32,241,5,175,184,3 

2.233.201 

300  REM  »*«*»***»»»*»*******#** 

301  REM  routine  3  (25  bytes) 

302  REM  SONORO/BITONALE 

303  REM  *»#»*»******»*»**»****» 

305  DATA  " H "  ,25 

310  DATA  "06" ,"32" ,"c5" ,"21 " ,"f4"  ,"01 "  ,  " 1 
1 " , "3c" , "00" , "cd" , "b5" , "03" ,"21 "  ,  "ee"  ,  "02" 
, "  1  1 " , " 3c " , "00" , " cd" , " b5" , "03 " , "ci "  ,  " 1 0"  ,  " 
ea" , " c  9 " 

400  REM  *********************** 

401  REM  routine  4  (21  bytes) 

402  REM  SONORO/SIRENA 

403  REM  a»**»*»»*»*********»#** 

405  DATA  " H "  ,21 

410  DATA  "21 " , "f 4" , "01 " , " 1 1 " , "Oa"  ,  "00"  ,  "0 
6" , "ff " , " e  5 " , " d  5 " , " c  5 " , "cd" , "b5" , "03" , "ci " 
, "di  » , "ei "  ,  "2b" , " 1 0" ,"f 4"  ,  "c9" 

9800  FOR  j-1  TO  100:  NEXT  j 
9805  CLS 

9810  LET  q$(cont)-w$(rout) (5  TO 
(cont  )-indirizzo :  LET  s(cont)-n 
9820  PRINT  '"Finora  hai  caricato:" 

9830  FOR  j-1  TO  cont 

9840  PRINT  ' 'q$(j  )  "’ind.  " s t (J  ), "bytes 
"  ;  s  (  j  ) 

9850  NEXT  j 

9855  IF  cont-num  THEN  PRINT  #1;"HAI  CARICA 
TO  TUTTE  LE  ROUTINES":  FOR  j-1  TO  300:  NE X 
T  j :  STOP 

9860  PRINT  #1  ;  "PREMI  <A>  PER  USCIRE, 
UN  ALTRO  TASTO  PER  CONTINUARE" 

9870  PAUSE  0 

9880  IF  PEEK  23560-97  OR  PEEK  23560-65  THE 
N  STOP 

9890  LET  o-O:  LET  p-0:  CLS 
9999  CLS  :  PRINT  FLASH  1  ; AT 
REGISTRATORE !!!"; AT  11,1;  FLASH 
un  tasto  per  cominciare.":  PAUSE 
RUN 


32):  LET  t 


GO  TO  10 
10, 4; "FERMA  IL 
0  ;  "  P  r  e  m  i 
0:  CLS  : 
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GRUPPO  EDITORIALE 

JACKSON 

DIVISIONE  UBRI 


Le  strenne 
firmate  Jackson 


IMPARA  IL  BRIDGE 
CON  IL  COMPUTER 

Claudio  Trinchino 
Imparare  il  bridge  con  l'aiuto  del 
computer  diventa  un  piacevole 
passatempo.  Un  programma 
interattivo  elaborato  su  IBM  e 
su  C  64  ti  conduce  passo  passo 
a  diventare  ...  quasi  un  esperto 
di  bridge.  Poi  con  un  po'  di 
applicazione  ... 

Con  floppy  disk  per  C  64 
Cod.  CC229  Lire  50.000 
Con  floppy  disk  per  IBM 
Cod.  CC239  Lire  50.000 


COMPUTER  IMAGE 

Mauro  Salvemini 
Chi  è  ancora  convinto  che  il 
computer  limiti  le  possibilità 
creative  dell’uomo,  può  scorrere 
nel  libro,  le  splendide  immagini 
di  computer-art  a  colori  e  ... 
convincersi  del  contrario. 

Cod.  0231  Lire  40.000 


ROMANZO  ROSA  CON  IL  C64 

Marco  Bucceri  Francesco  Davini 

Sfefania  Deambrogi 
Sei  un  tipo  romantico?  Ti 
piacciono  i  romanzi? 

Il  computer,  attraverso  un 
simpatico  programma  scritto  per 
Commodore  64.  collabora  con 
te  e  con  ...  nella  costruzione  di 
un  Vostro  "Romanzo  rosa" 

Con  floppy  disk. 

Cod.  CC230  Lire  40.000 


Puoi  trovare  le  strenne  Jackson 
nelle  migliori  librerie 


COMPUTERGRAPHIA 

loan  Scott 

In  176  meravigliose  e 
coloratissime  pagine,  uno 
splendido  viaggio  attraverso  le 
immagini  elaborate  con  le 
tecniche  più  avazate  di 
computer -graphics. 

Cod.  802P  Lire  40.000 


COFANETTI 
SPEEDY  COMPUTER 

L'informatica  attraverso  i  testi  e 
le  immagini  studiate  per  i 
bambini  può  diventare  facile 
anche  per  ...  mamma  e  papà. 

Cod.  CU001  Lire  45.000 
Cod.  CU002  Lire  45.000 


